declare Counter Count
class Counter
      attr val
      meth browse
      	   {Browse @val}
     end
     meth inc(Value)
     	  val := @val + Value
     end
     meth init(Value)
     	  val := Value
     end
end

Count = {New Counter init(9)}
{Count browse}
{Count inc(15)}
{Count browse}

